home *** CD-ROM | disk | FTP | other *** search
- program Copyfile;
-
- uses
- Forms,
- Unit1 in 'Unit1.pas' {CopyFiles},
- Unit2 in 'Unit2.pas' {CreateNewDirDlg};
-
- {$R *.RES}
-
- begin
- Application.Initialize;
- Application.CreateForm(TCopyFiles, CopyFiles);
- Application.CreateForm(TCreateNewDirDlg, CreateNewDirDlg);
- if CopyFiles.AutoCopy then
- CopyFiles.ButtonExitClick(nil);
- Application.Run;
- end.
-